home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / games / 223 / accent / accentob.def < prev    next >
Text File  |  1988-02-07  |  1KB  |  33 lines
  1. DEFINITION MODULE AccentObjects;
  2.  
  3. (* Copyright 1987,1988 Ken Badertscher
  4.  * Permission is granted to freely use this program and source code,
  5.  * however it may NOT be used or modified for any commercial gain.
  6.  * The author disclaims responsibility for any damages resulting
  7.  * from the use or misuse of this program, and disclaims liability
  8.  * for losses of any kind or nature, financial or otherwise,
  9.  * incurred as a result of the use of this software.
  10.  *)
  11.  
  12. FROM SYSTEM IMPORT ADDRESS;
  13.  
  14. FROM AccentStrings IMPORT AccentString;
  15.  
  16. PROCEDURE DoAlert(defbuttn: INTEGER; str: ARRAY OF CHAR): INTEGER;
  17.  
  18. PROCEDURE ShowTitle;
  19.  
  20. PROCEDURE GetFile(msg: ARRAY OF CHAR;
  21.                   VAR cancel: BOOLEAN;
  22.                   VAR pathname: AccentString);
  23. (* IF cancel THEN get input file ELSE get output file *)
  24.  
  25.  
  26. PROCEDURE GetArgs(VAR args: AccentString);
  27. (* create string of options for accenting *)
  28.  
  29. PROCEDURE GEMTerm;
  30. (* free resource, ApplExit, and Pterm0 *)
  31.  
  32. END AccentObjects.
  33.